C     PROGRAM WITH A LARGE ARRAY
C
      INTEGER I, J
      REAL MATRIX, SUM
      DIMENSION MATRIX(200,200)
C
C     MATRIX IS A 200 X 200 = 40000 ELEMENT ARRAY
C     OR 160 KILOBYTES AT 4 BYTES/ELEMENT
C
      DATA MATRIX/10000*1.0,10000*2.0,10000*3.0,10000*4.0/
C
C     Calculate the sum of all elements
C
      SUM = 0.0
      DO 10 J=1,200
        DO 10 I=1,200
        SUM = SUM + MATRIX(I,J)
   10 CONTINUE
C
      WRITE(*,1000) SUM
 1000 FORMAT(2X,'SUM = ',1F9.1)
      END
